home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / ch-ching.hqx / Ch-Ching 2.6.7r7 / admin / security.lasso < prev    next >
Encoding:
Text File  |  2000-01-13  |  3.4 KB  |  63 lines
  1. [variable_set:'field1'="fileAdmin"]
  2. [variable_set:'field2'="fileCartResult3"]
  3. [variable_set:'field3'="fileCustomer3"]
  4. [variable_set:'field4'="fileCustomerUpdate3"]
  5. [variable_set:'field5'="fileCustomerCheckout"]
  6. [variable_set:'field6'="fileUpdateCredit"]
  7. [variable_set:'field7'="fileCloseUp"]
  8. [variable_set:'field8'="filePostProcess"]
  9. [variable_set:'field9'="fileCount::fileSerialNum"]
  10. [variable_set:'field10'="fileSerialNum"]
  11. [variable_set:'field11'="fileUserPassword"]
  12. [variable_set:'field12'="fileUserName"]
  13.  
  14. [variable_set:'hide1'="fileCount::fileSerialNum"]
  15. [variable_set:'hide2'="fileSerialNum"]
  16. [variable_set:'hide3'="fileUserPassword"]
  17. [variable_set:'hide4'="fileUserName"]
  18.  
  19. [variable_set:'datasource'=(database_name)]
  20. [variable_set:'name'=(form_param:"userName")]
  21. [variable_set:'pass'=(form_param:"password")]
  22.  
  23.  
  24.  
  25. [inline:database="LassoSecurity", "LassoUsers::Permissions"="Search", -token="dbadd", "DatabaseName"=(database_name), ClientUsername=(form_param:"userName"), ClientPassword=(form_param:"password"), add]
  26.     [if:(error_currenterror) != "noErr"]
  27.         [variable_set:'error' = "on"]
  28.     [/if]
  29. [/inline]
  30.  
  31. [loop:8]
  32.     [inline:database="LassoFields", "DatabaseName"=(database_name), -recID="-1", -token.recID="-1", "FieldName"=(var:(string_concatenate:"field", loopcount)), "Restrictions"="ResponseField", "Restrictions"="", -token="addfield", ClientUsername=(form_param:"userName"), ClientPassword=(form_param:"password"), add]
  33.     [/inline]
  34. [/loop]
  35.  
  36. [inline:database=(database_name), layout="Internet Setup", maxRecords='1', -ClientUsername=(form_param:"userName"), -ClientPassword=(form_param:"password"), -findall]
  37.     [variable_set:'userName'=(field:"fileUserName")]
  38.     [variable_set:'userPassword'=(field:"fileUserPassword")]
  39. [/inline]
  40.  
  41. [loop:4]
  42.     [inline:database="LassoFields", "DatabaseName"=(database_name), -recID="-1", -token.recID="-1", "FieldName"=(var:(string_concatenate:"hide", loopcount)), "Restrictions"="DontShow", "Restrictions"="DontSearch", "Restrictions"="ReadOnly", "Restrictions"="", -token="addfield", ClientUsername=(form_param:"userName"), ClientPassword=(form_param:"password"), add]
  43.     [/inline]
  44. [/loop]
  45.                         
  46. [inline:database="LassoUsers", "DatabaseName"=(database_name), -token="finduser", "UserName"='All Users', ClientUsername=(form_param:"userName"), ClientPassword=(form_param:"password"), search]
  47.     [inline:database="LassoUsers", "DatabaseName"=(var:'datasource'), -recID=(recordid_value), -token.recID=(recordid_value), -token="updateuser", "UserName"='All Users', "Permissions"="Search", "Permissions"="", ClientUsername=(var:"name"), ClientPassword=(var:"pass"),  update]
  48.     [/inline]
  49. [/inline]
  50.  
  51. [inline:database="LassoUsers", "DatabaseName"=(database_name), -token="finduser", "UserName"=(var:'userName'), ClientUsername=(form_param:"userName"), ClientPassword=(form_param:"password"), add]
  52.     [inline:database="LassoUsers", "DatabaseName"=(var:'datasource'), -recID=(recordid_value), -token.recID=(recordid_value), -token="updateuser", "password"=(var:'userPassword'), "Permissions"="Add", "Permissions"="Search", "Permissions"="Update", "Permissions"="Delete", "Permissions"="Scripts", "Permissions"="", ClientUsername=(var:"name"), ClientPassword=(var:"pass"),  update]
  53.     [/inline]
  54. [/inline]
  55.  
  56. [inline: database=(var:'datasource'), layout="www_admin", "userName"=(var:"userName"), "password"=(var:"userPassword"), maxRecords='1', -findall]
  57.     [Lasso_Process:(field:"fileAdmin",raw)]
  58. [/inline]
  59.  
  60. [if:(var:'error') == "on"]
  61.     [include:"default.html"]
  62. [/if]
  63.